File information: | |
File name: | DoubleDefs.mesa_Mar78.pdf [preview DoubleDefs.mesa Mar78] |
Size: | 27 kB |
Extension: | |
Mfg: | xerox |
Model: | DoubleDefs.mesa Mar78 🔎 |
Original: | DoubleDefs.mesa Mar78 🔎 |
Descr: | xerox mesa 3.0_1977 listing DoubleDefs.mesa_Mar78.pdf |
Group: | Electronics > Other |
Uploaded: | 12-03-2020 |
User: | Anonymous |
Multipart: | No multipart |
Information about the files in archive: | ||
Decompress result: | OK | |
Extracted files: | 1 | |
File name DoubleDefs.mesa_Mar78.pdf DOUBLEDEFS.MESA 30-MAR-78 14:47:33 Page 1 -- DoubleDefs.Mesa Edited by Johnsson on March 24, 1977 8:57 AM DIRECTORY InlineDefs: FROM "inlinedefs"; DoubleDefs: DEFINITIONS = BEGIN LongCARDINAL: TYPE = InlineDefs.LongCARDINAL; Comparison: TYPE = {less, equal, greater}; DDivide: PROCEDURE [num, den: LongCARDINAL] RETURNS [quotient, remainder: LongCARDINAL]; DMultiply: PROCEDURE [a,b: LongCARDINAL] RETURNS [product: LongCARDINAL]; DApd: PROCEDURE [a.b: LongCARDINAL] RETURNS [LongCARDINAL]; DSub: PROCEDURE [a.b: LongCARDINAL] RETURNS [LongCARDINAL]; DNeg: PROCEDURE [a: LongCARDINAL] RETURNS [LongCARDINAL]; DInc: PROCEDURE [a: LongCARDINAL] RETURNS [LongCARDINAL]; DCompare: PROCEDURE [a.b: LongCARDINAL] RETURNS [Comparison]; AppendDouble: PROCEDURE [s:STRING. a: LongCARDINAL]; END. |
Date | User | Rating | Comment |